検索などを起動するには？

解決

α 2001-03-29 01:46:48 No: 74071

すみませんが、検索とネットワークコンピュータの起動方法を
おしえてください。

PAPY 2001-03-29 21:19:52 No: 74072

VBのサンプルでなくてDelphiのサンプルになります。（＾＾；
あとはご自分で編集して下さい。言語はにているから大丈夫でしょう。

※usesにShlObjを追加

function SHFindFiles(pidlRoot: PItemIDList; pidlSavedSearch: PItemIDList): Boolean;
stdcall; external 'Shell32.dll' index 90;

function SHFindComputer(pidlRoot: PItemIDList; pidlSavedSearch: PItemIDList): Boolean;
stdcall; external 'Shell32.dll' index 91;

procedure TForm1.Button1Click(Sender: TObject);
begin
//検索
SHFindFiles(nil,nil);
//コンピュータの検索
SHFindComputer(nil,nil);
end;

α 2001-03-29 22:39:21 No: 74073

ここまでは理解できました。

Call Shell("RUNDLL32.EXE SHELL32.DLL,*******_RunDLL")

しかし、*******のところに検索を起動する
エントリがあるのですが、そのエントリが見つかりません。
ご教授お願いします。

PAPY 2001-03-29 23:56:01 No: 74074

VBでのサンプルがあるサイトをみつけました。

α 2001-04-07 22:53:30 No: 74075

ちゃんと起動しました。
どうもありがとうございました。

報告が送れてすみません。