Dephi中资源文件的应用

领测软件测试网

var 
i, j: integer; 
begin 
J := 3; 
for i := 1 to length(ParamStr(0)) do 
if ParamStr(0)[i] = ’\’ then J := I; 
Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J); 
end; 

function SelectDirectory(handle: hwnd; const Caption: string; const Root:WideString;outDirectory:string): Boolean; 
var 
lpbi: _browseinfo; 
buf: array[0..MAX_PATH] of char; 
id: ishellfolder; 
eaten, att: cardinal; 
rt: pitemidlist; 
initdir: pwidechar; 
begin 
result := false; 
lpbi.hwndOwner := handle; 
lpbi.lpfn := nil; 
lpbi.lpszTitle := pchar(caption); 
lpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX; 
SHGetDesktopFolder(id); 
initdir := pwchar(root); 
id.ParseDisplayName(0, nil, initdir, eaten, rt, att); 
lpbi.pidlRoot := rt; 
getmem(lpbi.pszDisplayName, MAX_PATH); 

文章来源于领测软件测试网 https://www.ltesting.net/