Comandline und WM_COPYDATA

[EWeiss]

Zitat von Bernhard Geyer:

Zitat von EWeiss:

Zitat:

Wie erstellst du die WM_COPYDATA-Nachricht, nicht wie verarbeitest du diese.

Ach so jetzt weis ich was ihr meint.

hat sich erledigt.

Danke.

gruss

Uund was war es jetzt?

Habe den freien Char selbst angehängt.. Manchmal ist man einfach nur blöd.

vorher!

Delphi-Quellcode:

      // Commandline Parameter auswerten
      if ParamCount > 0 then
      begin
        StartParams := '';
        for Params := 1 to ParamCount do
          StartParams := StartParams + ' ' + ParamStr(Params);

        pName := PWideChar(StartParams);
        CopyDataStruct.dwData := 0;
        CopyDataStruct.cbData := (StrLen(pName) + 1) * sizeof(Char);
        CopyDataStruct.lpData := pName;

        SendMessage(Prop.MainHandle, WM_COPYDATA, 0, integer(@CopyDataStruct));
      end;

nachher..

Delphi-Quellcode:

      // Commandline Parameter auswerten
      if ParamCount > 0 then
      begin
        StartParams := '';
        for Params := 1 to ParamCount do
        if Params = 1  then
          StartParams := StartParams + ParamStr(Params)
        else
        StartParams := StartParams + ' ' + ParamStr(Params);

        pName := PWideChar(StartParams);
        CopyDataStruct.dwData := 0;
        CopyDataStruct.cbData := (StrLen(pName) + 1) * sizeof(Char);
        CopyDataStruct.lpData := pName;

        SendMessage(Prop.MainHandle, WM_COPYDATA, 0, integer(@CopyDataStruct));
      end;

Kann man bestimmt schöner (professioneller) machen aber mir reicht es so.

gruss