Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

Два вопроса... :) 


Leviathan   (2001-11-26 17:17) [0]

Мастера! Есть два важных вопроса, если кто подскажет, буду благодарен.
1) Как сделать мою программу автозапускаемой?
2) Предположим, что я точно знаю, что была запущена программа hl.exe. Как мне отследить из своей программы, когда она закончит работу?



andey   (2001-11-26 19:25) [1]

На вопрос 1)
Пропиши в автозагрузку.
а можно так:

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean );
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then //sKey := "Once"
begin
sKey := "";
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.DeleteValue(
"Software\Microsoft"
+ "\Windows\CurrentVersion\Run"
+ sKey + #0);
reg.CloseKey;
reg.Free
end
else
begin
sKey := "";
reg := TRegIniFile.Create( "" );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
"Software\Microsoft"
+ "\Windows\CurrentVersion\Run"
+ sKey + #0,
sProgTitle,
sCmdLine );
reg.CloseKey;
reg.Free;
end;
end;



Olgerd   (2001-11-26 20:20) [2]

На вопрос 2)
Как узнать, что запущен такой-то exe-файл. Если он закончит работать, то функция возвратит false, можно по таймеру проверять.

uses TlHelp32;
function IsRunning(ExeName:String):Boolean;
var
PHandle: THandle;
ProcEntry:TProcessEntry32;
begin
result:=false;
PHandle:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
ProcEntry.dwSize:=sizeof(TProcessEntry32);
if Process32First(PHandle,ProcEntry) then
if ExtractFileName(ProcEntry.szExeFile) = ExeName then result := true;;
while Process32Next(PHandle,ProcEntry) do
if ExtractFileName(ProcEntry.szExeFile) = ExeName then result := true;
CloseHandle(PHandle);
end;

Чувствительна к регистру!




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.016 c
1-9191            besen-ok              2002-02-14 15:58  2002.03.04  
как двум созданным в рантайме компонентам присвоить один и тот-же обрабитчик событый ?


7-9315            SWW                   2001-11-27 10:59  2002.03.04  
Как определить количество полученной/переданной информации на сетевом адапторе?


1-9147            Poirot                2002-02-17 05:42  2002.03.04  
Как сделать форму прозроачной - Alpha например на 70%


3-9065            fag2000@ok.ru         2002-02-06 15:18  2002.03.04  
как узнать что запись новая


14-9289           mvg_first             2002-01-10 13:38  2002.03.04  
Пара предложений для Мерлина (присоединяйтесь!)