unti shellobj und WM_ message

[turboPASCAL]

Dann setze doch mal die Procedure WMClose() ein paar zeilen weiter oben in deinem Code oder
stelle mit

Delphi-Quellcode:

program Project1;

procedure GetTest(param: char); forward; // <--<<<

procedure BevoreTest;
begin
  GetTest(#0);
end;

procedure GetTest(param: char);
begin
end;

begin
  //...
end.

vorran.

Arbeitest du mit der VCL / OOP ?