Spustenie počítača (systémového priečinku) – Delphi – Fórum – Programujte.com

Neviete niekto aký kod mam zadat aby sa mi spustil počítač

http://msdn.microsoft.com/en-us/library/bb762204%28v=VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/bb762494%28VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/bb762153%28VS.85%29.aspx

Příklad:

uses

  ..., ShlObj, ShellApi;



procedure TForm1.Button1Click(Sender: TObject);

var

  PIDL:     PItemIDList;

  ExecInfo: TShellExecuteInfo;

begin

SHGetSpecialFolderLocation(Handle,CSIDL_DRIVES,PIDL);

With ExecInfo do

  begin

    cbSize := Sizeof(ExecInfo);

    fMask := SEE_MASK_IDLIST;

    Wnd := Handle;

    lpVerb := nil;

    lpFile := nil;

    lpParameters := nil;

    lpDirectory := nil;

    nShow := SW_SHOWNORMAL;

    hInstApp := 0;

    lpIDList := PIDL;

  end;

ShellExecuteEx(@ExecInfo);

end;

vyskusam

funguje díky

ou a zabudol som sa spýtať - nevieš kod na toto iste akurat ze na Sieť(systémový priecinok)??

Stačí změnit druhý parametr u SHGetSpecialFolderLocation. Tj. místo CSIDL_DRIVES zadáš to co potřebuješ, možné hodnoty zde:
http://msdn.microsoft.com/en-us/library/bb762494%28VS.85%29.aspx
Nevím co tou sítí myslíš tak ti nebudu psát konkrétní hodnotu, protože virtuálních adresářů co mají něco společného se sítěmi je víc. Taky podle toho jakou máš verzi delphi, budeš možná muset zadat některé CSIDL přímo číslem (hodnoty se válej všude po netu, snadno je najdeš).

ak máš XP tak sa to volá Miesta v Sieti ale ja mám sedmičku a tu sa to volá Sieť

CSIDL_NETWORK
V sedmách je CSIDL nahrazeno KNOWNFOLDERID, i když je CSIDL stále podporováno tak netuším jestli se otevře ta správná složka. A podívej se na ten odkaz z mého předchozího příspěvku, tam máš seznam všech hodnot i s popisem složky kterou zastupují.

jj pozrel som si ho