Szukalem i nie znalazlem :/ Moze mi ktos powiedziec jak za pomocą polecenia ShellExecute(...); otworzyć okno moj komputer, otocznie sieciowe i inne? (MOje dokumenty otwieralem z c:/d&s/user/moje dokumenty czy jakos tak ale czy nie da rady jakos przystepniej?)
Dziekuje za odpowiedzic i pozdrawiam
cos takiego otwiera okno dodawania drukarek.. wiec mysle ze po drobnych zmianach powinienes moc otwierac Moj komputer.. :)
ShellExecute(Handle, 'open', 'rundll','shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL);
no i jest jeszcze cos takiego.. mozesz to sprawdzic..:
Procedure FreePidl( pidl: PItemIDList );
Var
allocator: IMalloc;
Begin
If Succeeded(SHGetMalloc(allocator)) Then Begin
allocator.Free(pidl);
{$IFDEF VER90}
allocator.Release;
{$ENDIF}
End;
End;
procedure TForm1.ButtonClick(Sender: TObject);
var
exInfo: TShellExecuteInfo;
Begin
FillChar( exInfo, Sizeof(exInfo), 0 );
// initialize all fields to 0
With exInfo Do Begin
cbSize:= Sizeof( exInfo ); // required!
fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;
Wnd := Handle;
nShow := SW_SHOWNORMAL;
lpVerb := 'open';
ShGetSpecialFolderLocation( handle, CSIDL_DRIVES ,
PItemIDLIst(lpIDList ));
End;
ShellExecuteEx( @exInfo );
FreePIDL( exinfo.lpIDList );
end;
!! !!To nie jest moj kod!! !! ja go tylko znalazlem :) kod by Peter Below
Poszukaj sobie jeszcze troszke w pomocy na temat: [b]ShGetSpecialFolderLocation[/b] pewnie bedzie w win32.hlp
Gdzie ty chcesz lokalizacje MK znaleźć na HDD?? Po co?? lol
Zrób skrót do Mojego Komputera i jego uruchamiaj Shell Execute'm.
Szymek spoko, ale jak chcialem shellexevcute odpalic skrot to mi sie wysiwetla okno do sciagania pliku z IE :/
A zrobile mcos takiego:
ShellExecute(handle,'open','explorer','c:\siec.lnk',nil,sw_show);
Nie tak. :P
ShellExecute(handle,'open','c:\siec.lnk',nil,nil,sw_show);
Dziala dzieki wielkie ;-)