Ausführen... Fenster öffnen

[Sprint]

Ich hatte vor einigen Jahren mal einen Task Manager Clone geschrieben.
Kannst ja mal gucken ob's bei dir läuft.

Delphi-Quellcode:

function RunFileDlgWinNT(hWnd: HWND; hIcon: HICON; lpstrDirectory, lpstrTitle,
  lpstrDescription: LPWSTR; uFlags: UINT): DWORD; stdcall; external 'SHELL32.DLL' index 61;

function RunFileDlgWin95(hWnd: HWND; hIcon: HICON; lpstrDirectory, lpstrTitle,
  lpstrDescription: LPCSTR ; uFlags: UINT): DWORD; stdcall; external 'SHELL32.DLL' index 61;

Delphi-Quellcode:

const
  DLG_TITLE = 'Neuen Task erstellen';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    RunFileDlgWinNT(Self.Handle, Application.Icon.Handle, nil, DLG_TITLE, nil, 0)
  else
    RunFileDlgWin95(Self.Handle, Application.Icon.Handle, nil, DLG_TITLE, nil, 0);