OOP Delphi

  1. Home
  2. Delphi
  3. OOP
  4. 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;