DLL med argument der bliver ændret

I dit link står der:

- CMDdir - Future Use (working directory - not currently functional) (str)

Så hvis det er denne funktion du vil anvende, forstår jeg det sådan, at den ikke virker i øjeblikket.

Det er RunReturn funktionen jeg vil anvende, som jeg også skriver. Hvor jeg benytter cmd med værdien 'dir c:' og har en tom variabel outvar som jeg vil have indholdet af mit kald til at komme i.

Du kan evt. kigge lidt på dette link:
  http://www.drbob42.com/delphi/headconv.htm

Jeg har improviseret lidt over det her:

var
  Hbar: Thandle;
  CMD, StrOut: pchar;
  CmdRet: procedure(aCMD, aStrOut: pchar); {$IFDEF WIN32} stdcall; {$ENDIF}
begin
  GetMem(CMD,1000);
  GetMem(StrOut,10000);
  Hbar := LoadLibrary('cmdret.DLL');
  try
    if Hbar >= 32 then { success }
    begin
      CmdRet := GetProcAddress(HBar, 'RunReturn');
      CmdRet(CMD,StrOut);
      ...
    end;
  finally
    FreeLibrary(HBar);
    FreeMem(StrOut);
    FreeMem(CMD);
  end;
end;

Tak for hjælpen, så var jeg på det rette spor alligevel. Min fejl viste sig at være grundet forveksling af string og pchar ved cmd.

Hvis du laver et svar hrc, så tildeler jeg dig de 200 point

Et svar.