Skocz do zawartości

Kilka pytań (a jak to miałem nazwać:P)


Law

Recommended Posts

Kilka pytań (a jak to miałem nazwać:P)

Prosto:
MCI & plik pomocy & PlgBlt & TOpenFilename
lub proostu nazwiesz temat MCI a przy okazji zapytasz o ta reszte ;)
Nie ma rzeczy niemozliwych ;)

pozdrawiam ;]

ps
co do plików pomocy to wraz z delphi jest dolanczany darmowy kompilatorek plików pomocy "Microsoft Help Workshop", który u mnie znajduej się tutaj:
C:\Program Files\Borland\Delphi6\Help\Tools

Link do komentarza
Udostępnij na innych stronach

Nie o to chodzilo, jezeli chcesz w czystym api, wygladac moze to np. tak:

uses windows, messages, commdlg;

var Open:TOpenFileName;
    szFile:array[0..1024]of Char;
    VI: TOSVersionInfo;
begin
 FillChar(VI,SizeOf(TOSVersionInfo),0);
 VI.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
 GetVersionEx(VI);
 ZeroMemory(@Open,SizeOf(TOpenFileName));
 with Open do
  begin
   if (VI.dwMajorVersion >= 5) and (VI.dwPlatformId = VER_PLATFORM_WIN32_NT) or
    ((VI.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS) and (VI.dwMajorVersion >= 4) and (VI.dwMinorVersion >= 90)) then
      lStructSize := SizeOf(TOpenFilename)
    else
   lStructSize := 76;
   hWndOwner:=0;
   nMaxFile:=SizeOf(szFile);
   lpstrFilter:='Pliki NFO'+#0+'*.nfo'+#0+'Wszystkie pliki'+#0+'*.*'+#0#0;
   lpstrFile:=szFile;
   Flags:=OFN_FILEMUSTEXIST;
  end;
 if GetOpenFileName(Open) then
  begin
   //tutaj wykonuje sie kod jak wyszlo wszystko pomyslnie
  end;
end.
Link do komentarza
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Odpowiedz...

×   Wkleiłeś zawartość bez formatowania.   Usuń formatowanie

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Utwórz nowe...