[Delphi] Jak zmienić powłokę

0

Jak uruchomić domyślną powłokę z programu ??? mÓj program uruchamia się jako shell (system.ini - shell=Client.exe) i chce, żemy po jego uruchomieniu (tzn z niego uruchomiła się powłoka). Jak to zrobić ? Uruchamiam plik explorer.exe, ale to uruchamia jedynie eksplolator windows, jak natomiast uruchomić całą powłokę ???

0

jezeli nie masz nic przeciwko najprostszemu rozwiązaniu, mozesz tak:

uses inifiles, shellapi;

var p:tinifile;
begin
 p.writestring('boot','shell','explorer.exe');
 shellexecute(0,'open','explorer.exe','','',1);
 p.writestring('boot','shell','client.exe');
end;
0

a moze zrób inaczej. jak w system.ini masz linijke
shell=explorer.exe

to mozesz zrobic cos takiego

shell=explorer.exe client.exe

i to otworzy Explorera, ktory otworzy Ci client.exe zaraz po starcie

0

jezeli nie masz nic przeciwko najprostszemu rozwiązaniu, mozesz tak:

uses inifiles, shellapi;

var p:tinifile;
begin
 p.writestring('boot','shell','explorer.exe');
 shellexecute(0,'open','explorer.exe','','',1);
 p.writestring('boot','shell','client.exe');
end;

Przydało by się jeszcze utworzyć zmienną p i otworzyć plik:

p := TINIFile.Create(nazwa_pliku);

a i jeszcze na koniec rozwalić p:TINIFile;

p.Free;

jak tego nie będzie to daleko nie zajdziecie

1 użytkowników online, w tym zalogowanych: 0, gości: 1