Læse hukommelse af et andet program

er det ikke word du mener?

Find ud af class namet på din World Editor så burde det være muligt
at hente teksten ind i dit eget program

Stoney

Stone>
Nej Word har ikke noget med det her at gøre

Stoney>
Okay, men hvordan finder man ud af hvad class namet er, eller skal man gætte sig frem?
Og hvad gør man så når man kender det?

Brug winsight32 eller min yndling Greatis Windows (er skrevet i Delphi)
http://www.greatis.com/windowse.htm
Det burde være lige ud af landevejen.
Bare hold musen over din "World editor" så får du class namet.
Det er freeware.

Stoney

Okay, men hvad gør jeg så når jeg kender class namet? Jeg vil gerne kunne hente texten ud fra mit program jo.

Sådan læser du teksten fra en kørende notepad

function GetCalcText: string;
var
  Wnd: HWND;
  ClassName: array[0..144] of char;
  L: Integer;
begin
  Result := '';
  { Find the "calc" window }
  Wnd := FindWindow(PCHAR('Notepad'), NIL);
  if Wnd <> 0 then
  begin
    { get the first child window... }
    Wnd := GetWindow(Wnd, GW_CHILD);
    repeat
      { ...and search the siblings for the first class named
"Static" }
      GetClassName(Wnd, @ClassName, SizeOf(ClassName));
      if StrComp(ClassName, 'Edit') = 0 then
      begin
        { get the text length }
        L := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
        if L > 0 then
        begin
          { allocate space for the text }
          SetString(Result, NIL, L);
          { get the text (into Result) }
          SendMessage(Wnd, WM_GETTEXT, L, Longint(@Result[1]));
          { set actual size }
          SetLength(Result, StrLen(PCHAR(Result)));
        end;
        Exit;
      end; { if StrComp... }
      Wnd := GetWindow(Wnd, GW_HWNDNEXT);
    until (Wnd = 0);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text := GetCalcText;
end;

Du må selv rette procedure navne/classname til


Stoney

Du kan skrive teksten til notepad sådan:

procedure SetNotepadText(S: String);
var
Handle:HWND;
I:Integer;
begin
    Handle := FindWindowEx(FindWindow( 'notepad', nil ),0,'Edit',nil);
    SendMessage(Handle, WM_SETTEXT,0,Integer(S));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetNotepadText(Memo1.Text)
end;

Hvis det er trigger editor så kan du bruge det her:

function GetScriptEditorText: String;
var
Handle:HWND;
begin
    Handle := FindWindowEx(FindWindow( '#32770', 'Trigger Editor'),0,'Edit',nil);
    SetLength( Result, SendMessage( Handle, WM_GETTEXTLENGTH, 0, 0 )+1);
    SendMessage( Handle, WM_GETTEXT, Length(Result), integer(Result));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Text := GetScriptEditorText;
end;

procedure SetScriptEditorText(S: String);
var
Handle:HWND;
begin
    Handle := FindWindowEx(FindWindow( '#32770', 'Trigger Editor'),0,'Edit',nil);
    SendMessage(Handle, WM_SETTEXT,0,Integer(S));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetScriptEditorText(Memo1.Text)
end;

Tusind tak for hjælpen! Det virker med et par justeringer!

Hmm... jeg nåede ikke at se dit indlæg da jeg svarede hejhej.

Forresten så returnerer din (hejhej) kode teksten fra kommentar boksen. I den anden kode var det lettere at få den til at hente fra edit #2.