String -> PChar ..FEHLER =(

[ppirokke]

hi, habn Problem und zwar sagt delphi channel wäre string... Deswegen will das net klappen:

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender: TObject);
var channel:PChar;
        hOE: hWnd;
begin
channel := PCHAR(Edit1.text);
if (x=30) AND (message1<>'')
 then begin
        hOE:=FindWindow(nil,' Channel: '+channel;
        SetForegroundWindow(hOE);
        SendKeys(message1);
        SendKeys(#13);
      end;
...

SorrY wennsch nen dummen fehler gemacht hab, konnte aber nur so bruchstücke finden und versuchte dann die Umwandlung so zu erstellen :drunken:

[sakura]

So ;)

Code:

procedure TForm1.TimerTimer(Sender: TObject);
var [color=#f50000][s]channel:PChar;[/s][/color]
        hOE: hWnd;
begin
[s][color=#f50000]channel := PCHAR(Edit1.text);[/color][/s]
if (x=30) AND (message1<>'')
 then begin
        hOE:=FindWindow(nil, [color=#f50000]PChar(' Channel: ' + Edit1.text)[/color]);
        SetForegroundWindow(hOE);
        SendKeys(message1);
        SendKeys(#13);
      end;
...

...:cat:...

[ppirokke]

Echt geil, wie schnell das hier geht, Funzt SUPER THX

Das Forum ruled :stupid:

[sakura]

Zitat:

Zitat von ppirokke

Das Forum ruled :stupid:

Guck ma' :dp:

...:cat:...