PDA

Visualizza la versione completa : [delphi4]Eseguire e controllare programmi da un programma


djandryu
01-07-2004, 13:40
Salve a tutti,

forse dal titolo nn si capisce bene, cmq questo il mio problema:
ho una form con dei bottoni, e vorrei ke, cliccando su un bottone si aprisse un altro programma. Fin qui niente d complicato: utilizzo ShellExecute. Per, se clicco un'altra volta sul bottone mi si apre lo stesso programma x la seconda volta, ed io invece vorrei poter controllare ke il programma precedente sia stato kiuso prima di riaprirne un altro. Come si fa?

Spero di essermi spiegato...

Grazie :ciauz:

djandryu
01-07-2004, 16:15
:quote:

delphiknight
02-07-2004, 10:59
Guarda questo link:
http://www.devspy.com/Forum/ShowPost.aspx?PostID=1441

Saluti

djandryu
02-07-2004, 11:30
Grazie....

Ho letto il link, ma nn ke ho capito molto... :di56:

Eppoi, mi sembra ke sia x delphi 6 ma a me serve x delphi 4...

In pratica, vorrei soltanto controllare ke un pgm nn sia in esecuzione x avviarlo...

:ciauz:

delphiknight
02-07-2004, 13:18
procedure CreateWin9xProcessList(List: TstringList);
var
hSnapShot: THandle;
ProcInfo: TProcessEntry32;
begin
if List = nil then Exit;
hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnapShot <> THandle(-1)) then
begin
ProcInfo.dwSize := SizeOf(ProcInfo);
if (Process32First(hSnapshot, ProcInfo)) then
begin
List.Add(ProcInfo.szExeFile);
while (Process32Next(hSnapShot, ProcInfo)) do
List.Add(ProcInfo.szExeFile);
end;
CloseHandle(hSnapShot);
end;
end;

function EXE_Running(FileName: string): Boolean;
var
i: Integer;
MyProcList: TstringList;
begin
MyProcList := TStringList.Create;
try
CreateWin9xProcessList(MyProcList);
Result := False;
if MyProcList = nil then Exit;
for i := 0 to MyProcList.Count - 1 do
begin
if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then
Result := True;
if Result then Break;
end;
finally
MyProcList.Free;
end;
end;

In un event hendler potresti scrivere:

if EXE_Running('NomeFile.exe') then
ShowMessage('NomeFile.exe in esecuzione')
else ShowMessage('NomeFile.exe non in esecuzione');

Con queste 2 procedure potresti vedere se un'applicazione eseguita o meno.

Saluti

djandryu
02-07-2004, 13:45
Scusami ma sono un p ignorantello su Delphi.....

Nn riesco a compilarlo xk nn mi trova TProcessEntry32, e nn riesco a trovarlo sull'Help. Ke Unit dovrei aggiungere?

Grazie

delphiknight
02-07-2004, 14:27
Scusami, mia mancanza:

uses Psapi, tlhelp32;

Saluti

djandryu
02-07-2004, 16:14
Grazie mille, funziona perfettamente!!!

Con un'aggiunta x, anzi una correzione. Ho dovuto scrivere EXE_Running('NomePgm.ex') e non .exe, poik corrisponde al nome del pgm ke sul Task Manager...

Nn so xk....

:ciauz:

carmelo81
13-08-2004, 16:03
ciao, potreste dirmi come funziona 'shellexecute', e che uses utilizzare?
Magari scrivendomi un codice di esempio che mi consente di aprire un programma tramite una form di Delphi...
Grazie

alka
13-08-2004, 16:21
Originariamente inviato da carmelo81
ciao, potreste dirmi come funziona 'shellexecute', e che uses utilizzare?
Magari scrivendomi un codice di esempio che mi consente di aprire un programma tramite una form di Delphi...

Non ti ho appena risposto a una domanda identica a questa? :confused:

L'esempio di codice seguente apre il Blocco Note:


ShellExecute(0, nil, 'notepad.exe', nil, nil, SW_SHOWDEFAULT);


Sostituisci notepad.exe con il percorso del file eseguibile che devi lanciare.

Aggiungi ShellAPI alla clausola uses della unit in cui fai uso della funzione.

Ciao! :ciauz:

Loading