Du könntest jedoch auch diese Methode nehmen:
Delphi-Quellcode:
var
wnd: HWnd;
begin
wnd := FindWindow(nil, 'Delphi');
PostMessage(wnd, WM_CLOSE, 0, 0);
end;
Dieser Code verhindert, dass das der Ordner "Delphi" geöffnet ist.
Das musst du jetzt nur für dich ändern.
[Edit] Du musst jetzt eben nur anstatt "PostMessage(wnd, WM_CLOSE, 0, 0);" das hier nehmen "if wnd <> 0 then begin ..." und dann das machen was du willst [/Edit]