ďťż

Ładny brzuch

Dlaczego poniższa procedura może nie działać? Otwiera się tylko okienko konsoli i nic się nie dzieje.

ShellExecute(handle, 'open','cmd', 'c:windowssystem32net.exe net use w:', ' /delete', SW_SHOWNORMAL);

Perpetum
_________________________________________________________________
Wiedz, że odpowiadając na moje (pewnie głupie) pytania "ratujesz" mi życie !!! :-)


Bo nie tak wpisałeś ścieżkę dostępu :)
U ciebie jest:
cytat:'c:windowssystem32net.exe net use w:', ' /delete',
A powinno być c:windowssystem32net.exe :]

Temat pierwszej lekcji z Windows: "Lokalizacja i działanie przycisku Reset" :P

...chodzi o to, że chcę odmapować dysk sieciowy...

Perpetum
_________________________________________________________________
Wiedz, że odpowiadając na moje (pewnie głupie) pytania "ratujesz" mi życie !!! :-)

eeee...
sorka, ale to forum coś nie tak wyświetla chyba kod. Tam powinny być slesche a ich nie ma....

Temat pierwszej lekcji z Windows: "Lokalizacja i działanie przycisku Reset" :P


No dobra, dalej nie wiem, wiecie jak dosowe programiki z parametrem odpalać, w helpach całe nic jest o tym. A w Necie jeszcze mniej.

Perpetum
_________________________________________________________________
Wiedz, że odpowiadając na moje (pewnie głupie) pytania "ratujesz" mi życie !!! :-)

Dobra, już wiem, trzeba helpa uważnie czytać.

ShellExecute(handle, 'open','c:windowssystem32net.exe', ' use w: /delete', ' nil', SW_SHOWNORMAL);

Następny problem. To się wykonuje w pętli, jak poczekać na zakończenie odmapowania, bo w to miejsce chcę następny dysk mapować?

Perpetum
_________________________________________________________________
Wiedz, że odpowiadając na moje (pewnie głupie) pytania "ratujesz" mi życie !!! :-)

Może sprobój z Application.Terminate

Temat pierwszej lekcji z Windows: "Lokalizacja i działanie przycisku Reset" :P

Tworzysz proces, tu masz przykład, a po więcej odsyłam do WinSDK, lub MSDN:

var  SI: STARTUPINFO;  PI: TProcessInformation; begin  SI.cb := SizeOf(SI);  FillChar(SI, SizeOf(SI), 0); // zeruje pamięć  FillChar(PI, SizeOf(PI), 0);  CreateProcess(nil, 'c:windowsnotepad.exe', nil, nil, True, 0, nil, 'c:windows', SI, PI);  while WaitForSingleObject(PI.hProcess, 100) <> WAIT_OBJECT_0 do        Application.ProcessMessages;  ShowMessage('koniec'); end;

Byłem hamski i wstawiłem Sleep(100), żeby poczekać, aż dyski się odmapują.

:oops:

Perpetum
_________________________________________________________________
Wiedz, że odpowiadając na moje (pewnie głupie) pytania "ratujesz" mi życie !!! :-)

A nie lepiej było spróbować z procesami? (dwa posty wyżej)

----
m@il: ali88@tlen.pl
GG: 2083160

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •