Erstmal danke für deine Erklärung
Hab das ganze nun erstmal wieder in eine Funktion gepackt, die es dann auslesen soll (sonnst seh ich bald gar nicht mehr durch^^)
Delphi-Quellcode:
function GetAllocFileName(wParam: WPARAM): PChar;
var
DataPtr: Pointer;
begin;
Result := '';
DataPtr := GlobalLock(wParam);
try
Result := PChar(DataPtr); // oder sonstwas
finally
GlobalUnlock(wParam);
end;
end;
Delphi-Quellcode:
WM_TSOPLAYFILE:
begin;
MSGFile := GetAllocFileName(wParam);//PChar(@wParam);
MessageBox(0, MSGFile, 'param', MB_OK or MB_ICONWARNING);
if FileExists(MSGFile) then
begin;
PostMessage(HWND_TOPMOST, WM_COMMAND, MAKELONG(IDC_BMPBUTTON2, BN_CLICKED), 0);
if Succeeded(CheckFile(MSGFile)) then
PostMessage(HWND_TOPMOST, WM_COMMAND, MAKELONG(IDC_BMPBUTTON1, BN_CLICKED), 0)
end;
end;
Aber ich bekomme schon wieder nur 3x Cryptisches Zeug angezeigt??
Das aber ne schwere Geburt mit mir und GlobalAlloc
