Moin!
Das liegt wohl an der Deklaration der Procedure:
Delphi-Quellcode:
type
PStartupInfo = ^TStartupInfo;
_STARTUPINFOA = record
cb: DWORD;
lpReserved: Pointer;
lpDesktop: Pointer;
lpTitle: Pointer;
dwX: DWORD;
dwY: DWORD;
dwXSize: DWORD;
dwYSize: DWORD;
dwXCountChars: DWORD;
dwYCountChars: DWORD;
dwFillAttribute: DWORD;
dwFlags: DWORD;
wShowWindow: Word;
cbReserved2: Word;
lpReserved2: PByte;
hStdInput: THandle;
hStdOutput: THandle;
hStdError: THandle;
end;
{$EXTERNALSYM _STARTUPINFOA}
TStartupInfo = _STARTUPINFOA;
STARTUPINFO = _STARTUPINFOA;
{$EXTERNALSYM STARTUPINFO}
procedure GetStartupInfoA(var lpStartupInfo: TStartupInfo); stdcall;
procedure GetStartupInfoW(var lpStartupInfo: TStartupInfo); stdcall;
...
procedure GetStartupInfoA; external kernel32 name 'GetStartupInfoA';
procedure GetStartupInfoW; external kernel32 name 'GetStartupInfoW';
Das is in meinen D5 auch so drin.