在windows的服務中寫程式去找網芳 |
|
尚未結案
|
|
magiclin
一般會員   發表：2 回覆：4 積分：1 註冊：2003-02-14 發送簡訊給我 |
|
|
timhuang
尊榮會員  發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
|
|
Rain
資深會員 發表：31 回覆：236 積分：268 註冊：2003-02-17 發送簡訊給我 |
給你一個函數，看是否用的上 uses ShlObj; function SelectDirectoryEX(Handle: HWND;
const Caption: string; const Root: WideString; out Directory: string): Boolean;
var
lpbi: _browseinfo;
buf: array[0..MAX_PATH] of Char;
ID: IShellFolder;
eaten, att: Cardinal;
rt: pItemIDList;
initDir: PWideChar;
begin
lpbi.HWNDOwner := Handle;
lpbi.lpfn := nil;
lpbi.lpszTitle := pchar(caption);
lpbi.ulFlags := BIF_RETURNONLYFSDIRS 16;
SHGetDesktopFolder(ID);
initdir := pwchar(Root);
id.ParseDisplayName(0, nil, initDir, eaten, rt, att);
lpbi.pidlRoot := rt;
GetMem(lpbi.pszDisplayName, MAX_PATH);
try
Result := SHGetPathFromIDList(SHBrowseForFolder(lpbi), buf);
except
FreeMem(lpbi.pszDisplayName);
end;
if Result then Directory := buf;
end; procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
SelectDirectoryEX(Handle, 'Browse','Desktop', S);
end;
|
|
magiclin
一般會員 發表：2 回覆：4 積分：1 註冊：2003-02-14 發送簡訊給我 |
|
|
Rain
資深會員 發表：31 回覆：236 積分：268 註冊：2003-02-17 發送簡訊給我 |
|
|
magiclin
一般會員 發表：2 回覆：4 積分：1 註冊：2003-02-14 發送簡訊給我 |
發表時間：2003-02-19 17:00:24
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-04-20 13:40:54
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |