Deutsches Lazarusforum

Hilf leider auch nicht... Hab ich irgendeinen Bezeichner verwendet, der intern verwendet wird? Irgendsowas muss es doch eigentlich sein. Alle "gefährlichen" WinAPI Funktionen funktionieren. Die Funktion wird beendet (eigentlich, damit sogar das ganze Programm) und dann tritt ein FEhler auf :O

Warte:

"Hast du mal alle Checks eingeschaltet?" Ja, aber kein Unterschied.

"Was ist ohne diese Nil und 0 Geschichten am Ende?" Genau das selbe, wie ich bereits geschrieben habe, habe ich die erst nachdem der Fehler aufgetreten ist überhaupt hinzugefügt.

Danke

Die Frees am Ende habe ich gemacht, da ich dachte, es leigt vlt an nicht freigegebenen Resourcen...
Die Definition von "CryptStringToBinaryA" ist die aus jwaWindows, die von "CryptUnprotectData" habe ich selber gemacht:

function CryptUnprotectData(pDataIn: PDATA_BLOB; ppszDataDescr: PLPWSTR ...

Jetzt wirds langsam echt komisch :O :

function DecryptKey(szKey: String): String;
var
byKey: Array[0..1024] of Byte;
cbBinary, dwFlags, dwSkip: DWORD;
DataOut, DataVerify: DATA_BLOB;
i: Integer;
begin
cbBinary := sizeof(byKey);
CryptStringToBinaryA(PChar(@szKey[1]), Length(szKey), 4, @byKey ...

Danke :D

Leider bringt die gefundene Funktion (in der Unit jwaWindows) einen Fehler beim Aufrufen hervor, denn sie lädt die Funktion dynamisch und sucht in der advapi32.dll, die Funktion befindet sich jedoch in der Crypt32.dll...

Da ich leider sehr viel mit der Windows-API arbeiten muss, und dort ...

Hallo Lazarusforum,

ich versuche bereits eine Weile die Funktionen CryptUnprotectData und CryptStringToBinary zu definieren:

function CryptUnprotectData(pDataIn: PDATA_BLOB; ppszDataDescr: PLPWSTR; pOptionalEntropy: PDATA_BLOB; pPromptStruct: Pointer; dwFlags: DWORD; pDataOut: PDATA_BLOB ...

Tut mir leid dir widersprechen zu müssen, aber ich habe bereits alle Konstanten versucht... Jedoch schlägt die Funktion bei jeder Konstate außer NameSamCompatible (=2) fehl. Und bei dieser kommt es nunmal z.B. bei einem Aufruf von einem SYSTEM Prozess zu einem DEFINITV falschen Ergebnis! Ich habe ...

Auch die letzte gepostete Funktion bringt leider das falsche Ergebnis, aber ich habe mir selber nochmal die API-Funtkionen angeschaut und hier eine Version entwickelt (sie bringt das richtige Ergebnis, ist aber weder effiziernt, noch gibt es eine Fehlerbehandlung):
function GetUserAtDomain ...

Hallo Lazarusforum,
ich brauche für ein Projekt eine Funktion die den kompletten Username ausliest (also mit Domain an der er angemeldet ist)! Einfach Computername und Username zusammensetzten Funktioniert logischerweise nicht, weil dann zum Beispiel NT AUTHORITY\SYSTEM natürlich falsch ausgelesen ...

Hallo Lazarusforum,
ich habe ein kleines Problem (von dem ihcn ie gedacht hätte, das das mal ein Problem wird :O):
Ich möchte eine Ausgabe in der Konsole machen, und zwar in "Spalten" (gebt mal in der cmd "tasklist" ein). Leider sind einige Spalten sehr viel länger als andere... Und selbst wenn ich ...

Vielen Dank für eure Hilfe,
geschafft hsb ichs zwar immernoch nicht, jedoch bin ich schon einen Schritt weiter:
bei der Lösung, bei der WriteFile scheitert hab ich mir noch mal dwImageSize angeschaut und mal geschaut was das für eine Zahl ist:4196352.
Eigentlich nichts besonderes (keine Primzahl ...

Ich habe die Messagebox kopiert, dabei wird der Titel der Messagebox mitkopiert :D
Die Funktion (in Zeile 282) die den Fehler aufwirft ist diese :
function GetDeviceSize(DC: HDC; var p: TPoint): boolean;
begin
Result := WidgetSet.GetDeviceSize(DC,p);
end;
In meinem Programm scheint es der Aufruf ...

Also bei mir kommt es bei oberen Programm zu folgender Exception:
[Window Title]
Fehler

[Content]
Projekt project1 hat Exception-Klasse »External: SIGSEGV« ausgelöst.

In Datei '.\include\lclintf.inc' in Zeile 282

[Ok]

Danke
Wenn ich jedoch Screenshots erstellen möchte, muss ich (in meiner Konsolenanwendung) die LCL einbinden, und die macht aus einem 300kb Programm einen 14MB Riesen... Ich werde ein Array of Bytes nutzen, danke

Hallo,
ich muss folgenden Code von C++ nach Free Pascal portieren (er ist aus einem C++ Forum, ich finde die Quelle grade nicht):
#include <Windows.h>

int main(){

HDC hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL);
HDC hdcCompatible = CreateCompatibleDC(hdcScreen);

int iWidth ...