|
#1
|
||||
|
||||
Win Api как?
Как в Win Api сделать так что бы
программа создала в указанном месте ТХТ файл а после удалил себя? как саморазрушения программы Заранее благодарю |
#2
|
||||
|
||||
Вот пример попроще
Код:
@echo off echo Будем создавать текстовый файл >123.txt echo Он будет называться 123.txt >>123.txt del 123.bat |
#3
|
||||
|
||||
Вот код процедуры для самоудаления:
Код:
procedure SelfDelete(bWithFolder: Boolean); function GetTmpDir: String; var pc: PChar; begin pc := StrAlloc(MAX_PATH+1); GetTempPath(MAX_PATH, pc); Result := String(pc); StrDispose(pc); end; function GetTmpFileName(ext: String): String; var pc: PChar; begin pc := StrAlloc(MAX_PATH+1); GetTempFileName(PChar(GetTmpDir), 'uis', 0, pc); Result := String(pc); Result := ChangeFileExt(Result, ext); StrDispose( pc ); end; var BatchFile: TStringList; BatchName: String; begin BatchName := GetTmpFileName('.bat'); FileSetAttr(ParamStr(0), 0); BatchFile := TStringList.Create; with BatchFile do begin try Add(':Label1'); Add('del "' + ParamStr(0) + '"'); Add('if Exist "' + ParamStr(0) + '" goto Label1'); if bWithFolder = True then Add('rmdir "' + ExtractFilePath(ParamStr(0)) + '"'); Add('del ' + BatchName); SaveToFile(BatchName); ChDir(GetTmpDir); WinExec(PChar(BatchName), SW_HIDE); finally BatchFile.Free; end; Halt; end; end; THE CRACKER IS OUT THERE |