hi
ich habe in delphi eine dll geschrieben:
Spoiler anzeigen
Code
library write;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
{$R *.res}
function WriteText(TransText: string;Posx,Posy,fsize:integer):integer;stdcall;
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
begin
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clRed;
MyCanvas.Font.Name := 'Arial';
MyCanvas.Font.Size := fsize;
SetBkMode(MyCanvas.Handle,TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(posx, posy, TransText); //Hier die Positionsdaten mit X und Y, wo der Text beginnen soll
WriteText := 1
end;
exports
WriteText;
begin
//writetext(123',100,100,130);
end.
Alles anzeigen
so weit ist ja alles schön und gut...
wenn ich die dll nun aber nutzen will:
[autoit]$dll = DllOpen("write.dll")
DllCall($dll,"int","WriteText","Str","Hallo dude","int",100,"int",100,"int",130)
bekomm ich nur die meldung :
blub hat ein problemfestgestellt und muss beendet werden...