Delphi - Exe Yolu - AppPath

 function Get_AppPath: string;

begin

  Result := ExtractFileDir(ParamStr(0));

end;

delphi uygulama çalışıyor mu - Delphi de Program Bir defa Çalışsın

İlgili fonksiyon aşağıdadır.
Kullanımı:

if not ( (UygulamaCalisiyorMu('PROGRAM.exe')) ) then begin
    //Çalışmıyor ise yapıalcaklar.
end;

FONKSİYON Aşağıda

Delphi ile Windows Temp Folder bulma

Finding Windows Temp Folder with Delphi

Delphi ile Windows Temp Folder bulma

function GetTempDirectory: String;
var
  tempFolder: array[0..MAX_PATH] of Char;
begin
  GetTempPath(MAX_PATH, @tempFolder);
  result := StrPas(tempFolder);
end;

veya 

t := GetEnvironmentVariable('TEMP');

şeklinde bulunabilir.

Delphi Recordset Save to File

poRS.save('c:\temp\KayadilenDosyaAdi.xml',adpersistxml)

Delphi ile Manuel Hata Oluşturma raise Create Exception

raise Exception.Create('Hata Mesajını Yazma');

Delphi ile bilgileri text dosyaya yazmak.

Delphi ile bazen değişkenleri veya toplu verileri kontrol için txt dosyaya yazmak isteyebilirsiniz. Bunu için aşağıdaki kodu kullanabiliriz.

var
  myfile:Textfile;
Begin   
    Assignfile(myfile,'c:\myout.txt');
    ReWrite(myfile);  //read(myfile) okur , write(myfile) yazar.
    Writeln(myfile,psKurumRef);
    CloseFile(myFile);
end;