Funktionen direkt einbinden

[Rastaman]

Hallo. Ich habe da mal n Problem :shock:

Wie binde ich direkt Funktionen in ein Projekt ein?
Z.b möchte ich nicht irgendeine unit einbinden sondern direkt eine WinApi funktion ansprechen so wie Visual Basic das macht.
( " Private Function CreateWindowEx lib "kernel32.dll" " ) etc. Ich möchte die Funktionen halt nicht über die Units nutzen.

Vielen Dank schon mal.

[Dax]

Um direkt API-Funktionen zu nutzen gibts Units wie Windows, ShellAPI.. such mal in Source/Rtl/Windows. da sollten dir glaube ich sein.

[Rastaman]

Sorry aber ich werd aus deinem Post überhaupt nicht schlau...

[DGL-luke]

das steht doch alles in der hilfe. einfach bei filter winapi windows platform sdk auswählen.

[Christian Seehase]

Moin Gerrit,

ich weiss jetzt nicht, welche chm-Datei das gewesen sein könnte, aber die gewünschte Dokumentation findest Du u.a. hier:

Windows Platform SDK

Man muss übrigens nicht unbedingt alles herunterladen (ca. 350MB), sondern kann das auch auswählen.

In der D2005 PE habe ich auch mal eben nachgesehen:
Bei mir ist, zumindest wohl ein Teil, der Doku die Du suchst enthalten (wie üblich).
CreateWindowEx konnte ich darin, z.B., finden.

Das sollte bei Dir also auch da sein (oder es liegt daran, dass ich vorher mal die D2005 Architekt Trial installiert hatte ;-))

Zu Deiner zweiten Frage:
Mache bitte einen neuen Thread auf.
Hier gilt die Regel: Eine Frage pro Thread.

Danke.

[Rastaman]

Ok die 2te Frage ist viel wichtiger.
Also lasst die erste frage weg und nehmt die 2te.
Ich lösch mal die Erste

[Pr0g]

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.dll' name '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

[Kernel32.DLL]

Zitat:

Zitat von Pr0g

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.dll' name '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

Vllt. glaubt er so die Größe der Echse reduzieren zu können....

[Rastaman]

Wieso " vielleicht denkt er " ??

[Kernel32.DLL]

Zitat:

Zitat von Gerrit89

Wieso " vielleicht denkt er " ??

Weil ich leider deine Gedanken nicht lesen kann und das daher auch nur vermuten kann.

=> Wenn du die Windows.pas aus deinem Projekt rausschmeißt, wird es dadurch imho nicht kleiner.