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

[v1s2222]

Ну удалить себя можно (как я знаю) через батник. Ну можно его не создавать, а тупо все записать в себя и выполнить...:

Код:

uses ShellApi;
 
procedure TForm1.FormDestroy(Sender: TObject);
var f: textFile;
  FileName: string;
begin
  FileName := changefileext(paramstr(0), '.bat');
  assignFile(f, FileName);
  rewrite(f);
  writeln(f, ':1');
  writeln(f, format('Erase "%s"', [paramstr(0)]));
  writeln(f, format('If exist "%s" Goto 1', [paramstr(0)]));
  writeln(f, format('Erase "%s"', [FileName]));
  closefile(f);
  ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide);
end;

Ну а вот тут про нужную тебе функцию, может поможет:
http://www.delphisources.ru/pages/fa...Drive.php.html

[Sky.NET]

Спасибо, работает.
Но тут используется командная строка.
Я попробовал отключить командную строку и обработку командных файлов у себя на компьютере, но командные файлы по прежнему работают... Это значит, что их нельзя отключить или то, что я использую учётную запись администратора?

[v1s2222]

Скорее всего, из-за второго.