Einzelnen Beitrag anzeigen

Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#7

Re: Funktionen direkt einbinden

  Alt 14. Mai 2005, 22:49
Schau dir doch mal den Code in der "Windows.pas" an, hier nen Beispiel (habs nicht getestet, müsste aber gehen:
Delphi-Quellcode:
...

function CreateWindowEx(dwExStyle: DWORD; lpClassName: PChar;
  lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function CreateWindowEx; external 'user32.dllname 'CreateWindowExA';

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateWindowEx(...);
end;

end.
Nur obs bei der so was bringt glaube ich nicht, da sie eh in der Windows.pas steckt, welche du einbinden musst.

Aber warum das ganze?

MfG Pr0g
  Mit Zitat antworten Zitat