API Delphi

Question:
How do I retrieve a long file name that contains spaces from the
command line passed to my application?
Answer:
The Windows API function GetCommandLine() will provide you with
the complete command line to your application. Note: you will need
to make a copy of the returned string, and parse out the executable
path and name from the beginning of the returned string.
Example:
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s:= GetCommandLine;
Delete(s, 1, pos('exe"', s) + 4);
Memo1.Lines.Add(s);
end;