PureBasic

[ts-soft]

Zitat von AHT

Danke für den Tipp.
In der Regel braucht man die Prototypes dafür aber ja gar nicht. Bis auf einige Sachen aus der PSAPI.DLL lässt sich eigentlich das wichtigste direkt ansprechen.

PSAPI solltest Du nicht Importieren, da je nach Windows-Version unterschiedliche Libs zu importieren sind, entweder kernel32.lib oder psapi.lib.
Besser dynamisch laden in diesem Fall.
Hier ein Beispiel, es wird die Unicode-Version geladen. Durch den Pseudotype
im Prototype funktioniert es aber unter ASCII oder Unicode!

; DWORD WINAPI GetModuleBaseName(
;   __in      HANDLE hProcess,
;   __in_opt  HMODULE hModule,
;   __out     LPTSTR lpBaseName,
;   __in      DWORD nSize
; );
Prototype GetModuleBaseName(hProcess, hModule, lpBaseName.p-Unicode, nSize.l)

Global GetModuleBaseName.GetModuleBaseName

Define hPsapi = OpenLibrary(#PB_Any, "Psapi.dll")
If hPsapi
  GetModuleBaseName = GetFunction(hPsapi, "GetModuleBaseNameW")
EndIf

[AHT]

Ja, richtig. Kann mich erinnern, diesbezüglich was bei Vista gelesen zu haben. Ist dann auch klar, warum die nicht standardmäßig importiert wird.

Danke für das Prototype Beispiel - die Hilfe ist da mit der Messagebox etwas dürftig.

Es kommt mir vor, als wäre es Weihnachten. Die Leute, die die Sprache geschrieben haben, wissen was man zum Programmieren braucht.

[AHT]

Erste DLL mit der Sprache erstellt - geht wunderbar einfach durch die hervorragende API Unterstützung..
Alles, was vorher mit Profan nicht funktionierte, läuft jetzt bestens.