Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Problem beim einbinden von dll's

  Alt 3. Nov 2004, 13:57
Zitat von maximus Caesar:
Laut Tutorial hab ich in der Unit dlls der Prozedure "start" die prozedure "start" der dll "Weg" zugewiesen,
Hä???

Zitat:
Wenn das nicht stimmt, wie kann ich dann die Prozedure "start" der "Weg.dll" aufrufen?
Dynamisch ginge es so: (Am Beispiel für Shellexecute, für das man normalerweise die Unit ShellAPI.pas einbinden müsste.)

Delphi-Quellcode:
type
  TShellexecute = function(hWnd: HWND; Operation, FileName, Parameters,
    Directory: PChar; ShowCmd: Integer): HINST; stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
  hLib: cardinal;
  MyShellExecute: TShellexecute;
begin
  hLib := LoadLibrary('shell32.dll');
  if hLib <> 0 then
  begin
    @MyShellexecute := GetProcAddress(hLib, 'ShellExecuteA');
    if not Assigned(MyShellexecute) then
    begin
      RaiseLastOSError;
      exit;
    end;
  end
  else
  begin
    RaiseLastOSError;
    exit;
  end;
  MyShellexecute(Form1.Handle, 'open', 'Notepad.exe', nil, nil, SW_NORMAL);
end;
Und nach welchem Tutorial? In dem von Assarbad sthet das so bestimmt nicht drinne: http://www.luckie-online.de/Delphi/Importe/Assarbad/
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat