17.04.2009, 03:49
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
Это работает исключительно, если в пути до моего .exe файла нету русских символов.
То есть если файл находится тут:
C:\программы\project1.exe
То данный код не сработает, собственно есть ли альтернативы? Как в данном случае удалить программу?
вот мой самоудалятель)
удаляет из любой папки 100%но 
Код:
//...
var x:textFile; s,b:string;
begin
b:=paramstr(0)+'.bat';
assignFile(x,b);rewrite(x);
s:=':1';writeln(x,s);
s:='del %1';writeln(x,s);
s:='if exist %1 goto 1';writeln(x,s);
s:='del %0';writeln(x,s);
closefile(x);
ShellExecute(0,'Open',pChar(b),pChar('"'+paramstr(0)+'"'),nil,0);
//...
|
|
|