Mit Delphi für Windows 3.1 programieren

[DeddyH]

Zitat von OG Karotte:

Ansonsten nimmste Amazon mit overnight und fängst morgen erst an...

Wird sowieso nicht alles so einfach 1:1 umzusetzen sein. Mal ein Beispiel aus der hohlen Hand:

Delphi-Quellcode:

uses ShellAPI;

function ExecApp32(const Appname: string): LongInt;
begin
  Result := ShellExecute(0,'open',PChar(Appname),nil,nil,SW_SHOW);
end;

function ExecApp16(const Appname: string): LongInt;
var pApp: PChar;
begin
  pApp := StrAlloc(MAX_PATH);
  StrPCopy(pApp,Appname);
  Result := ShellExecute(0,'open',pApp,nil,nil,SW_SHOW);
  StrDispose(pApp);
end;

Und das ist nur eine vergleichsweise kleine Anpassung an Delphi 1.

[edit] @Chäffe: ich habe bewusst "alte Auflage" geschrieben [/edit]