Я комментирую 3 пункта как ваше направление, оно все еще компилируется и работает. Еще раз спасибо. Я получил новый урок :)
могу увидеть, если Windows Explorer уже открыт с определенным путем? Я не хочу, чтобы мое приложение открывало много дублированных окон. Я не смог сделать это следующим образом:
var
H: hwnd;
begin
if FileExists(edt8.Text) then
begin
H := FindWindow(0, PChar(ExtractFilePath(edt8.Text)));
if H <> 0 then
ShowMessage('explorer already opened')//explorer bring to front
else
ShellExecute(Application.Handle, nil, 'explorer.exe',
PChar(ExtractFilePath(edt8.Text)), nil, SW_NORMAL);
end;
end;