안녕하세요?
날씨가 많이 추워 졌네요...
모두들 감기 조심하세요.
다름이 아니오라 NT계열에서 프로세스가 실행된 Full Path 알아 볼 수 있는 방법을 알고 싶은데요. 98에서는 기본적으로 Full Path가 올라오던데 NT기반에서는 파일이름만 나오더라구요.
알켜주세여 ^^;
소스임다.
==========
try
if Process32First(phandle, Process32) then
begin
Next:= True;
repeat
Next := Process32Next(phandle, Process32);
if Next then
begin
if GetOs = 'winnt' then
begin
if DaemonKind = Lowercase(Process32.szExeFile) then //<==이부분이 파일 이름만 나오는데 Full Path를 구하고 싶습니다.
begin
ProcID:= Process32.th32ProcessID; //프로세스의 ID를 변수에 기록
Result:= True;
Break;
end;
end
else
begin
if Pos('mysqld.exe', Lowercase(Process32.szExeFile)) <> 0 then //<== 이놈은 Full Path가 나오더라구요.
begin
ProcID:= Process32.th32ProcessID; //프로세스의 ID를 변수에 기록
Result:= True;
//ShowMessage('Daemon Running.');
Break;
end;
end;
end;
until Next = False;
end;
finally
CloseHandle(phandle); // closes an open object handle
end;
연말을 뜻있게 보내시기 바랍니다.
^^