Проверка диска при запуске:
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.
Желательно без использования батников, т.к. они и командная строка запрещены в учётной записи пользователя.