有没有人在pascal上玩过win32 api?
pascal吧
全部回复
仅看楼主
level 8
足控泽 楼主
以我所知fpc已经有win api 的unit...有winsock, window 之类
我是第一次接触
想研究但又找不到相关的教学(winapi c++倒是一大堆 无从入手啊啊
求各路大师当我的指路明灯
想知道一般软件(如photoshop) 那个'开启旧档'后弹出的filemanager给用家选档案的功能是如何办到的[疑问]
2014年09月02日 17点09分 1
level 15
好高端,orz
2014年09月03日 01点09分 2
level 12
最无奈的办法:直接百度,或者看别的语言的WINDOWS编程教学。反正都是互通的。
2014年09月04日 15点09分 3
level 8
足控泽 楼主
看来只好这样了 谢//
2014年09月04日 20点09分 4
level 9
早上还在研究GetFileInformationByHandle的路过。
2014年09月05日 06点09分 5
大师!GetFileInformationByHandle什麼用途的?
2014年09月08日 08点09分
回复 足控泽 :获取文件各种信息。
2014年09月08日 08点09分
level 8
足控泽 楼主
研究终於有了一点起色,顺便贴上来吧
我改用了lazarus的lazarus compile library(lcl)库 orzorzorz
以下的unit均来自lcl库--->Forms,Dialogs,Interfaces
代码:
uses crt, SysUtils, Forms, Dialogs,Interfaces;
var openDialog: TOpenDialog;
ch:char;
begin
Application.Initialize;
cursoroff;
writeln(*Press <<Enter>> to select image*);
repeat
ch:=readkey;
if ch=#13 then begin
openDialog := TOpenDialog.Create(NIL);
openDialog.InitialDir := GetCurrentDir;
openDialog.Options := [ofFileMustExist];
openDialog.Filter :=*Image file(jpeg)|*.jpeg|Image file(jpg)|*.jpg*;
openDialog.FilterIndex := 2;
if openDialog.Execute then
begin
ShowMessage(*File : *+openDialog.FileName);
ch:=#27;
end;
end;
until ch=#27
openDialog.Free;
end.
2014年09月08日 08点09分 6
单括都变了星号[狂汗]
2014年09月08日 08点09分
回复 足控泽 :单引号
2014年09月08日 10点09分
回复 足控泽 :还有,lcl的全称不是那个。c是组件的缩写
2014年09月08日 10点09分
回复 wfwhl12 :谢谢指正 新手呵呵
2014年09月08日 10点09分
1