[Sky.NET]

Проверка диска при запуске:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Copy(ExtractFileDir(Application.ExeName), 1, 2) <> GetWin('%systemdrive%') then
    Application.Terminate;
end; 


Можно конечно сделать так:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ExtractFileDrive(Application.ExeName) <> GetWin('%systemdrive%') then
    Application.Terminate;
end; 


Но я не знаю, что ExtractFileDrive выдаст если программа будет находится в общей папке сервера (\\Student\...). Кстати, что эта функция выдаст?

В общем как удалить программу после процедуры Application.Terminate?
Form1.Close и Close здесь не работают.
DeleteFile(ParamStr(0)) после и перед Application.Terminate тоже не работает.

P.S.
Желательно без использования батников, т.к. они и командная строка запрещены в учётной записи пользователя.