Mega Code Archive

 

Categories / Delphi / OOP

 

Komut satırından uzun dosya ismini almak

procedure TForm1.Button1Click(Sender: TObject); var s : string; begin s:= GetCommandLine; Delete(s, 1, pos('exe"', s) + 4); Memo1.Lines.Add(s); end;