Про пути дороги

← →
Funnymind (2004-06-03 19:14) [0]

Как узнать:
1 путь к моей программе?
2 удалить проге саму себя - типа деинстал
3 список названий папок корневого каталога

← →
Clickmaker © (2004-06-03 19:27) [1]

В FAQ загляни

← →
AlexT © (2004-06-03 19:27) [2]

путь к твоей проге ExtractFilePath(Application.ExeName)
имя ехе файла твоей проги ExtractFileName(Application.ExeName)

для удаления создай из своей проги бат-файл для удаления своего ехешника и запусти его, после чего и сам бат-файл грохни.

← →
Snipers © (2004-06-03 19:28) [3]

путь к проге:
Application.ExeName

Удалить прогу самой себя - хз.

что понимаешь под корневым каталогом?
А если нужно просто посмотреть все папки и файлы в каком либо каталоге:

procedure TForm1.FindFiles(aPath :String);
Var
findResult : Integer;
fSearchRec,DSearchRec : TSearchRec;
function IsDirNotation(ADirName:String):boolean;
begin
Result := (aDirName = ".") or (aDirName = "..");
end;
begin
aPath := GetDirectoryName(apath);
try
FindResult := findFirst(aPath+"*.*",faDirectory,DSearchRec);
While findResult =0 do
begin
if ((DSearchrec.Attr and faDirectory) = faDirectory) and not
IsDirNotation(DSearchRec.Name) then
begin
// здесь имеем dSearchRec.Name - имя папки;
end;
FindResult := FindNext(DSearchRec);
end;
finally
FindClose(FSearchRec);
end;
end;

Удалить прогу из самой себя:
(откуда-то выдернул - не помню)

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;

Про пути дороги Найти похожие ветки